home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacOberon 4.0.sit / MacOberon 4.0 / Toolbox Interfaces / MacMoreToolbox.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-10-25  |  8.0 KB  |  138 lines  |  [.Ob./.Ob5]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Syntax10i.Scn.Fnt
  4. ParcElems
  5. Alloc
  6. Chicago10.Scn.Fnt
  7. MODULE MacMoreToolbox;    (*od 25.10.93*)
  8. (* This Module contains some essential constants, data types and routines from
  9. the NEW Inside Macintosh volume
  10.             More Macintosh Toolbox
  11. Edit.Open DK.MacOberonApp.Text for more information on how to create
  12. standalone Macintosh applications using MacOberon. *)
  13. IMPORT 
  14.     SYSTEM, TB:=MacToolbox, ME:=MacMemory, MF:=MacFiles;
  15. CONST
  16.     (* Help Manager *)
  17.         kHMHelpMenuID*=-16490;
  18.     (* Sound Manager *)
  19.     SndCommand*= RECORD
  20.         cmd* : INTEGER;
  21.         param1* : INTEGER;
  22.         param2* : LONGINT
  23.     END;
  24.     SndChannelPtr* = ME.Ptr;
  25.     (* Scrap Manager *)
  26.     PScrapStuff* = POINTER- TO ScrapStuff;
  27.     ScrapStuff* = RECORD
  28.         scrapSize*: LONGINT;
  29.         scrapHandle*: ME.Handle;
  30.         scrapCount*: INTEGER;
  31.         scrapState*: INTEGER;
  32.         scrapName*: ME.StringPtr
  33.     END;
  34.     (* Resource Manager *)
  35.     PROCEDURE- InitResources*(): INTEGER    0A9H,095H;
  36.     PROCEDURE- RsrcZoneInit*    0A9H,096H;
  37.     PROCEDURE- CloseResFile*(refNum: INTEGER)    0A9H,09AH;
  38.     PROCEDURE- ResError*(): INTEGER    0A9H,0AFH;
  39.     PROCEDURE- CurResFile*(): INTEGER    0A9H,094H;
  40.     PROCEDURE- HomeResFile*(theResource: ME.Handle): INTEGER    0A9H,0A4H;
  41.     PROCEDURE- CreateResFile*(fileName: ME.Str255)    0A9H,0B1H;
  42.     PROCEDURE- OpenResFile*(fileName: ME.Str255): INTEGER    0A9H,097H;
  43.     PROCEDURE- UseResFile*(refNum: INTEGER)    0A9H,098H;
  44.     PROCEDURE- CountTypes*(): INTEGER    0A9H,09EH;
  45.     PROCEDURE- Count1Types*(): INTEGER    0A8H,01CH;
  46.     PROCEDURE- GetIndType*(VAR theType: LONGINT;index: INTEGER)    0A9H,09FH;
  47.     PROCEDURE- Get1IndType*(VAR theType: LONGINT;index: INTEGER)    0A8H,00FH;
  48.     PROCEDURE- SetResLoad*(load: BOOLEAN)    0A9H,09BH;
  49.     PROCEDURE- CountResources*(theType: LONGINT): INTEGER    0A9H,09CH;
  50.     PROCEDURE- Count1Resources*(theType: LONGINT): INTEGER    0A8H,00DH;
  51.     PROCEDURE- GetIndResource*(theType: LONGINT;index: INTEGER): ME.Handle    0A9H,09DH;
  52.     PROCEDURE- Get1IndResource*(theType: LONGINT;index: INTEGER): ME.Handle    0A8H,00EH;
  53.     PROCEDURE- GetResource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A9H,0A0H;
  54.     PROCEDURE- Get1Resource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A8H,01FH;
  55.     PROCEDURE- GetNamedResource*(theType: LONGINT;name: ME.Str255): ME.Handle    0A9H,0A1H;
  56.     PROCEDURE- Get1NamedResource*(theType: LONGINT;name: ME.Str255): ME.Handle    0A8H,020H;
  57.     PROCEDURE- LoadResource*(theResource: ME.Handle)    0A9H,0A2H;
  58.     PROCEDURE- ReleaseResource*(theResource: ME.Handle)    0A9H,0A3H;
  59.     PROCEDURE- DetachResource*(theResource: ME.Handle)    0A9H,092H;
  60.     PROCEDURE- UniqueID*(theType: LONGINT): INTEGER    0A9H,0C1H;
  61.     PROCEDURE- Unique1ID*(theType: LONGINT): INTEGER    0A8H,010H;
  62.     PROCEDURE- GetResAttrs*(theResource: ME.Handle): INTEGER    0A9H,0A6H;
  63.     PROCEDURE- GetResInfo*(theResource: ME.Handle;VAR theID: INTEGER;VAR theType: LONGINT;
  64.         VAR name: ME.Str255)    0A9H,0A8H;
  65.     PROCEDURE- SetResInfo*(theResource: ME.Handle;theID: INTEGER;name: ME.Str255)    0A9H,0A9H;
  66.     PROCEDURE- AddResource*(theResource: ME.Handle;theType: LONGINT;theID: INTEGER;
  67.         name: ME.Str255)    0A9H,0ABH;
  68.     PROCEDURE- SizeResource*(theResource: ME.Handle): LONGINT    0A9H,0A5H;
  69.     PROCEDURE- MaxSizeRsrc*(theResource: ME.Handle): LONGINT    0A8H,021H;
  70.     PROCEDURE- RsrcMapEntry*(theResource: ME.Handle): LONGINT    0A9H,0C5H;
  71.     PROCEDURE- SetResAttrs*(theResource: ME.Handle;attrs: INTEGER)    0A9H,0A7H;
  72.     PROCEDURE- ChangedResource*(theResource: ME.Handle)    0A9H,0AAH;
  73.     PROCEDURE- RmveResource*(theResource: ME.Handle)    0A9H,0ADH;
  74.     PROCEDURE- UpdateResFile*(refNum: INTEGER)    0A9H,099H;
  75.     PROCEDURE- WriteResource*(theResource: ME.Handle)    0A9H,0B0H;
  76.     PROCEDURE- SetResPurge*(install: BOOLEAN)    0A9H,093H;
  77.     PROCEDURE- GetResFileAttrs*(refNum: INTEGER): INTEGER    0A9H,0F6H;
  78.     PROCEDURE- SetResFileAttrs*(refNum: INTEGER;attrs: INTEGER)    0A9H,0F7H;
  79.     PROCEDURE- OpenRFPerm*(fileName: ME.Str255;vRefNum: INTEGER;permission: SHORTINT): INTEGER    0A9H,0C4H;
  80.     PROCEDURE- RGetResource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A8H,00CH;
  81.     PROCEDURE- HOpenResFile*(vRefNum: INTEGER;dirID: LONGINT;fileName: ME.Str255;
  82.         permission: SHORTINT): INTEGER    0A8H,01AH;
  83.     PROCEDURE- HCreateResFile*(vRefNum: INTEGER;dirID: LONGINT;fileName: ME.Str255)    0A8H,01BH;
  84.     PROCEDURE- FSpOpenResFile*(spec: MF.FSSpec;permission: SHORTINT): INTEGER    030H,03CH,000H,00DH,0AAH,052H;
  85.     PROCEDURE- FSpCreateResFile*(spec: MF.FSSpec;creator: LONGINT;fileType: LONGINT; scriptTag: INTEGER)
  86.         030H,03CH,000H,00EH,0AAH,052H;
  87.     (* Sound Manager *)
  88.     PROCEDURE- SysBeep*(duration: INTEGER)    0A9H,0C8H;
  89.     PROCEDURE- SndDoCommand*(chan: SndChannelPtr;cmd: SndCommand;noWait: BOOLEAN): INTEGER    0A8H,003H;
  90.     PROCEDURE- SndDoImmediate*(chan: SndChannelPtr;cmd: SndCommand): INTEGER    0A8H,004H;
  91.     PROCEDURE- SndNewChannel*(VAR chan: SndChannelPtr;synth: INTEGER;init: LONGINT;
  92.         userRoutine: PROCEDURE): INTEGER    0A8H,007H;
  93.     PROCEDURE- SndDisposeChannel*(chan: SndChannelPtr;quietNow: BOOLEAN): INTEGER    0A8H,001H;
  94.     PROCEDURE- SndPlay*(chan: SndChannelPtr;sndHdl: ME.Handle;async: BOOLEAN): INTEGER    0A8H,005H;
  95.     PROCEDURE- SndAddModifier*(chan: SndChannelPtr;modifier: PROCEDURE;id: INTEGER;
  96.         init: LONGINT): INTEGER    0A8H,002H;
  97.     PROCEDURE- SndControl*(id: INTEGER;VAR cmd: SndCommand): INTEGER    0A8H,006H;
  98.     PROCEDURE- SndSoundManagerVersion*(): LONGINT    020H,03CH,000H,00CH,000H,008H,0A8H,000H;
  99.     PROCEDURE- SndStartFilePlay*(chan: SndChannelPtr;fRefNum: INTEGER;resNum: INTEGER;
  100.         bufferSize: LONGINT;theBuffer: ME.Ptr;theSelection: ME.Ptr;theCompletion: PROCEDURE;
  101.         async: BOOLEAN): INTEGER    020H,03CH,00DH,000H,000H,008H,0A8H,000H;
  102.     PROCEDURE- SndPauseFilePlay*(chan: SndChannelPtr): INTEGER    020H,03CH,002H,004H,000H,008H,0A8H,000H;
  103.     PROCEDURE- SndStopFilePlay*(chan: SndChannelPtr;async: BOOLEAN): INTEGER    020H,03CH,003H,008H,000H,008H,0A8H,000H;
  104.     PROCEDURE- SndChannelStatus*(chan: SndChannelPtr;theLength: INTEGER;theStatus: ME.Ptr): INTEGER
  105.         020H,03CH,000H,010H,000H,008H,0A8H,000H;
  106.     PROCEDURE- SndManagerStatus*(theLength: INTEGER;theStatus: ME.Ptr): INTEGER
  107.         020H,03CH,000H,014H,000H,008H,0A8H,000H;
  108.     PROCEDURE- SndGetSysBeepState*(VAR sysBeepState: INTEGER)    020H,03CH,000H,018H,000H,008H,0A8H,000H;
  109.     PROCEDURE- SndSetSysBeepState*(sysBeepState: INTEGER): INTEGER    020H,03CH,000H,01CH,000H,008H,0A8H,000H;
  110.     PROCEDURE- SndPlayDoubleBuffer*(chan: SndChannelPtr;theParams: ME.Ptr): INTEGER
  111.         020H,03CH,000H,020H,000H,008H,0A8H,000H;
  112.     PROCEDURE- MACEVersion*(): LONGINT    020H,03CH,000H,000H,000H,010H,0A8H,000H;
  113.     PROCEDURE- Comp3to1*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  114.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  115.         020H,03CH,000H,004H,000H,010H,0A8H,000H;
  116.     PROCEDURE- Exp1to3*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  117.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  118.         020H,03CH,000H,008H,000H,010H,0A8H,000H;
  119.     PROCEDURE- Comp6to1*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  120.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  121.         020H,03CH,000H,00CH,000H,010H,0A8H,000H;
  122.     PROCEDURE- Exp1to6*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  123.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  124.         020H,03CH,000H,010H,000H,010H,0A8H,000H;
  125.     (* Help Manager *)
  126.     PROCEDURE- HMGetHelpMenuHandle*(VAR mh : TB.MenuHandle) : INTEGER 030H,03CH,002H,000H,0A8H,030H;
  127.     PROCEDURE- HMGetBalloons*() : BOOLEAN    030H,03CH,000H,003H,0A8H,030H;
  128.     PROCEDURE- HMSetBalloons*(flag: BOOLEAN): INTEGER    030H,03CH,001H,004H,0A8H,030H;
  129.     PROCEDURE- HMIsBalloon*(): BOOLEAN    030H,03CH,000H,007H,0A8H,030H;
  130.     (* Scrap Manager *)
  131.     PROCEDURE- InfoScrap*() : PScrapStuff    0A9H,0F9H;
  132.     PROCEDURE- UnloadScrap*(): LONGINT    0A9H,0FAH;
  133.     PROCEDURE- LoadScrap*(): LONGINT    0A9H,0FBH;
  134.     PROCEDURE- GetScrap*(hDest: ME.Handle;theType: LONGINT;VAR offset: LONGINT): LONGINT    0A9H,0FDH;
  135.     PROCEDURE- ZeroScrap*(): LONGINT    0A9H,0FCH;
  136.     PROCEDURE- PutScrap*(length: LONGINT;theType: LONGINT;source: ME.Ptr): LONGINT    0A9H,0FEH;
  137. END MacMoreToolbox.
  138.